home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Ap-Az / AstroStack1.1.cpt / AstroStack 1.1 / card_2898.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  8.3 KB  |  352 lines
  1. -- card: 2898 from stack: in.1
  2. -- bmap block id: 8515
  3. -- flags: 0000
  4. -- background id: 2632
  5. -- name: aspects
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide card field id 6
  9.   hide card field id 7
  10.   hide card field id 8
  11.   hide card field id 9
  12.   hide card field id 10
  13.   hide card field id 11
  14.   hide card field id 15
  15.   hide card field id 16
  16.   hide card field id 17
  17. end openCard
  18.  
  19.  
  20.  
  21. -- part 1 (field)
  22. -- low flags: 01
  23. -- high flags: 0000
  24. -- rect: left=19 top=53 right=316 bottom=234
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 0
  28. -- font id: 3
  29. -- text size: 9
  30. -- style flags: 0
  31. -- line height: 13
  32. -- part name: premiere
  33.  
  34.  
  35. -- part 4 (field)
  36. -- low flags: 01
  37. -- high flags: 0000
  38. -- rect: left=233 top=53 right=299 bottom=452
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 9
  44. -- style flags: 0
  45. -- line height: 13
  46. -- part name: alternate
  47.  
  48.  
  49. -- part 5 (button)
  50. -- low flags: 00
  51. -- high flags: A003
  52. -- rect: left=387 top=306 right=327 bottom=470
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Print data
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   set the lockScreen to true
  64.   open printing
  65.   show card field id 6 of card id 10033
  66.   show card field id 7  of card id 10033
  67.   show card field id 8 of card id 10033
  68.   show card field id 9 of card id 10033
  69.   show card field id 13 of card id 10033
  70.   print card id 10033
  71.   set the lockScreen to true
  72.   show card field id 6 of card id 2898
  73.   show card field id 7 of card id 2898
  74.   show card field id 8 of card id 2898
  75.   show card field id 9 of card id 2898
  76.   show card field id 10 of card id 2898
  77.   show card field id 11 of card id 2898
  78.   print card id 2898
  79.   close printing
  80.   hide card field id 6 of card id 2898
  81.   hide card field id 7 of card id 2898
  82.   hide card field id 8 of card id 2898
  83.   hide card field id 9 of card id 2898
  84.   hide card field id 10 of card id 2898
  85.   hide card field id 11 of card id 2898
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 6 (field)
  91. -- low flags: 80
  92. -- high flags: 0001
  93. -- rect: left=0 top=0 right=342 bottom=12
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 3
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: 
  102.  
  103.  
  104. -- part 8 (field)
  105. -- low flags: 80
  106. -- high flags: 0001
  107. -- rect: left=0 top=0 right=34 bottom=512
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 0
  111. -- font id: 3
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: 
  116.  
  117.  
  118. -- part 9 (field)
  119. -- low flags: 80
  120. -- high flags: 0001
  121. -- rect: left=0 top=327 right=342 bottom=512
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 0
  125. -- font id: 3
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: 
  130.  
  131.  
  132. -- part 11 (field)
  133. -- low flags: 80
  134. -- high flags: 0001
  135. -- rect: left=298 top=24 right=45 bottom=344
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 0
  139. -- font id: 3
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: 
  144.  
  145.  
  146. -- part 14 (button)
  147. -- low flags: 00
  148. -- high flags: A003
  149. -- rect: left=280 top=306 right=328 bottom=380
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Continue
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   put line 11 of card field id 15 of card id 2898 into ascendant
  161.   put line 12 of card field id 15 of card id 2898 into midheaven
  162.   put 100 into dotradius
  163.   put card field id 1 of card id 10033 into card field id 15 of card id 9550
  164.   go to next card
  165.   choose select tool
  166.   drag from 70,10 to 428, 338
  167.   doMenu Clear Picture
  168.  
  169.   choose line tool
  170.   set the linesize to 1
  171.   set the pattern to 12
  172.   put the number of lines in card field id 16 of card id 2898 into m
  173.   repeat with x = 1 to m
  174.     put item 1 of line x of card field id 16 of card id 2898 into angA
  175.     put item 2 of line x of card field id 16 of card id 2898 into angB
  176.     if angA = ascendant or angA = midheaven then next repeat
  177.     if angB = ascendant or angB = midheaven then next repeat
  178.     put 260 + round(dotradius * cos(angA * pi/180)) into xspotA
  179.     put 180 + round(dotradius * sin(angA * pi/180)) into yspotA
  180.     put 260 + round(dotradius * cos(angB * pi/180)) into xspotB
  181.     put 180 + round(dotradius * sin(angB * pi/180)) into yspotB
  182.     drag from xspotA, yspotA  to xspotB, yspotB with optionKey
  183.   end repeat
  184.  
  185.  
  186.   put the number of lines in card field id 17 of card id 2898 into m
  187.   repeat with x = 1 to m
  188.     put item 1 of line x of card field id 17 of card id 2898 into angA
  189.     put item 2 of line x of card field id 17 of card id 2898 into angB
  190.     if angA = ascendant or angA = midheaven then next repeat
  191.     if angB = ascendant or angB = midheaven then next repeat
  192.     put 260 + round(dotradius * cos(angA * pi/180)) into xspotA
  193.     put 180 + round(dotradius * sin(angA * pi/180)) into yspotA
  194.     put 260 + round(dotradius * cos(angB * pi/180)) into xspotB
  195.     put 180 + round(dotradius * sin(angB * pi/180)) into yspotB
  196.     drag from xspotA, yspotA  to xspotB, yspotB
  197.   end repeat
  198.  
  199.   choose brush tool
  200.   set the brush to 7
  201.   repeat with x = 1 to 10
  202.     put line x of card field id 15 of card id 2898 into angle
  203.     put 260 + round(dotradius * cos(angle * pi/180)) into xspot
  204.     put 180 + round(dotradius * sin(angle * pi/180)) into yspot
  205.     click at xspot, yspot
  206.   end repeat
  207.  
  208.   set the brush to 4
  209.   repeat with x = 11 to 12
  210.     put line x of card field id 15 of card id 2898 into angle
  211.     put 260 + round(dotradius * cos(angle * pi/180)) into xspot
  212.     put 180 + round(dotradius * sin(angle * pi/180)) into yspot
  213.     click at xspot, yspot
  214.   end repeat
  215.   choose browse tool
  216.   click at 21,108
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 10 (field)
  222. -- low flags: 80
  223. -- high flags: 0001
  224. -- rect: left=265 top=302 right=342 bottom=505
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 3
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: 
  233.  
  234.  
  235. -- part 15 (field)
  236. -- low flags: 80
  237. -- high flags: 0007
  238. -- rect: left=263 top=181 right=212 bottom=488
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 3
  243. -- text size: 9
  244. -- style flags: 0
  245. -- line height: 12
  246. -- part name: 
  247.  
  248.  
  249. -- part 16 (field)
  250. -- low flags: 80
  251. -- high flags: 0007
  252. -- rect: left=262 top=213 right=244 bottom=487
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 0
  256. -- font id: 3
  257. -- text size: 9
  258. -- style flags: 0
  259. -- line height: 12
  260. -- part name: 
  261.  
  262.  
  263. -- part 17 (field)
  264. -- low flags: 80
  265. -- high flags: 0007
  266. -- rect: left=262 top=248 right=279 bottom=485
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 0
  270. -- font id: 3
  271. -- text size: 9
  272. -- style flags: 0
  273. -- line height: 12
  274. -- part name: 
  275.  
  276.  
  277. -- part 18 (button)
  278. -- low flags: 00
  279. -- high flags: 0000
  280. -- rect: left=476 top=305 right=330 bottom=504
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 11045 / 11045
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: Home
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   visual effect iris close
  292.   go home
  293. end mouseUp
  294.  
  295.  
  296.  
  297. -- part 7 (field)
  298. -- low flags: 80
  299. -- high flags: 0001
  300. -- rect: left=470 top=0 right=329 bottom=512
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 0
  304. -- font id: 3
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: 
  309.  
  310.  
  311. -- part contents for card part 15
  312. ----- text -----
  313. 186.666667
  314. 33.816667
  315. 192.8
  316. 194.65
  317. 122.333333
  318. 2.65
  319. 285.766667
  320. 56.816667
  321. 327.816667
  322. 31.383333
  323. 278.683333
  324. 7
  325.  
  326. -- part contents for card part 16
  327. ----- text -----
  328. 186.666667,122.333333
  329. 33.816667,327.816667
  330. 33.816667,278.683333
  331. 122.333333,2.65
  332. 122.333333,56.816667
  333. 122.333333,7
  334. 2.65,56.816667
  335. 327.816667,31.383333
  336. 31.383333,278.683333
  337.  
  338. -- part contents for card part 17
  339. ----- text -----
  340. 186.666667,2.65
  341. 186.666667,278.683333
  342. 186.666667,7
  343. 33.816667,122.333333
  344. 192.8,285.766667
  345. 192.8,278.683333
  346. 192.8,7
  347. 194.65,285.766667
  348. 194.65,278.683333
  349. 194.65,7
  350. 122.333333,31.383333
  351. 2.65,278.683333
  352. 56.816667,327.816667